/Users/tang58/scripts_all/perl_code/Purdue/brat_bw_map2_self_seq/acgt2wig_v0.1.pl